10 IFLL=1THEN260
20 S1$=" ":REM ANIMATOR DATA FILENAME
30 S2$=" ":REM PROGRAM NAME TO BOOT
40 S3$=" ":REM COMMAND TO RUN PROGRAM
50 DIMPO(10,2)
60 FORR=0TO9:PO(R,1)=18432+(R*2048):PO(R,2)=PO(R,1)+1024
70 PO(R,1)=PO(R,1)/256:PO(R,2)=PO(R,2)/256:NEXTR
80 PO=679
90 READA:IFA=-1THEN170
100 POKEPO,A:PO=PO+1:SU=SU+A
110 GOTO90
120 DATA 169,0,160,0,162,0,173,0,6,141,0,8,173,0,36,141,0,220,238,174
130 DATA 2,173,174,2,201,0,208,3,238,175,2,238,177,2,173,177,2,201,0
140 DATA 208,3,238,178,2,238,180,2,173,180,2,201,0,208,3,238,181,2,238
150 DATA 183,2,173,183,2,201,0,208,3,238,184,2
160 DATA 232,224,128,240,3,76,173,2,200,192,8,240,3,76,171,2,96,-1
170 IFSU<>9869THENPRINT"[147]ERROR IN DATA":STOP
180 FI$=S1$
190 PRINT:PRINT:PRINT"[147]** PLEASE STANDBY **"
200 F1$=FI$+".DAT,S,R":F2$=FI$+".SCR"
210 OPEN2,8,2,F1$
220 INPUT#2,BG:INPUT#2,BF:INPUT#2,NU
230 FORR=1TO10:INPUT#2,PA(R):NEXTR:CLOSE2
240 POKE53281,BG-1:POKE53280,BG-1
250 LL=1:LOADF2$,8,1
260 GETA$:GETA$
270 FORR=1TO500:NEXTR:UB=1
280 IFUB=-1ANDBF=1THENFORLO=NU-1TO1STEP-1:GOTO300
290 FORLO=0TONU
300 XX=LO:GOSUB340
310 FORPA=1TOPA(XX):NEXTPA
320 GETA$:IFA$<>""THEN370
330 NEXTLO:UB=-UB:GOTO280
340 POKE690,1024/256:POKE696,55296/256
350 POKE687,PO(XX,1):POKE693,PO(XX,2)
360 SYS679:RETURN
370 PRINT"[147]BOOTING MAIN PROGRAM...":POKE53280,0:POKE53281,0
380 LI$="[144]LOAD"+CHR$(34)+S2$+CHR$(34)+",8,1"+S3$+""
390 PRINTLI$:POKE631,13:POKE632,13:POKE198,2:STOP